---
title: "Dashboards at EVANS UW"
author: "Great student"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(ggplot2)
library(plotly)
library(plyr)
library(flexdashboard)
library(sf)
myWeb="https://github.com/Visual-Analytics-Project-UW-EvansSchool/ourMap/raw/main/"
mapWorldVars=read_sf(paste0(myWeb,"mapWorldVars.geojson"))
```
Static Plots
=======================================================================
Row
-----------------------------------------------------------------------
### Histogram
```{r}
base = ggplot(data=mapWorldVars) + theme_classic()
ps1=base + geom_histogram(aes(x=HDI))
ps1
```
### boxplot
```{r}
ps2=base + geom_boxplot(aes(y= mil_expend))
ps2
```
Row
-----------------------------------------------------------------------
### Scatter Plot 1
```{r}
ps3=base + geom_point(aes(x=HDI,y= mil_expend))
ps3
```
### Scatter Plot 2
```{r}
ps4=base + geom_point(aes(x=HDI,y= DemoIndex))
ps4
```
Interactive Plots
=======================================================================
Row
-----------------------------------------------------------------------
### Histogram
```{r}
pi1=base + geom_histogram(aes(x=HDI))
ggplotly(pi1)
```
### Boxplot
```{r}
pi2=base + geom_boxplot(aes(y=DemoIndex))
ggplotly(pi2)
```
Row
-----------------------------------------------------------------------
### Scatter Plot 1
```{r}
pi3=base + geom_point(aes(x=HDI,y= mil_expend))
ggplotly(pi3)
```
### Scatter Plot 2
```{r}
pi4=base + geom_point(aes(x=HDI,y= DemoIndex))
ggplotly(pi4)
```